home *** CD-ROM | disk | FTP | other *** search
/ SGI Hot Mix 17 / Hot Mix 17.iso / HM17_SGI / research / lib / ljlct.pro < prev    next >
Encoding:
Text File  |  1997-07-08  |  1.6 KB  |  58 lines
  1. ; $Id: ljlct.pro,v 1.2 1997/01/15 03:11:50 ali Exp $
  2. ;
  3. ; Copyright (c) 1990-1997, Research Systems, Inc.  All rights reserved.
  4. ;    Unauthorized reproduction prohibited.
  5.  
  6. pro ljlct
  7. ;+
  8. ; NAME:
  9. ;    LJLCT
  10. ;
  11. ; PURPOSE:
  12. ;    Load standard color tables for LJ-250/252 printer.
  13. ;
  14. ; CATEGORY:
  15. ;    Image display.
  16. ;
  17. ; CALLING SEQUENCE:
  18. ;    LJLCT
  19. ;
  20. ; OUTPUTS:
  21. ;    No explicit outputs.
  22. ;
  23. ; SIDE EFFECTS:
  24. ;    The color tables are modified if the current device is 'LJ'.
  25. ;
  26. ; LIMITATIONS:
  27. ;    The default color maps used are for the 90dpi color palette.
  28. ;    There are only 8 colors colors availible at 180 dpi.
  29. ;
  30. ; PROCEDURE:
  31. ;    If the current device is 'LJ', !D.N_COLORS is used to determine
  32. ;    how many bit planes are in use (1 to 4). The standard
  33. ;    color map for that number of planes is loaded. These maps are 
  34. ;    described in Chapter 7 of the "LJ250/LJ252 Companion Color
  35. ;    Printer Programmer Reference Manual", Table 7-5.  That manual gives
  36. ;    the values scaled from 1 to 100, LJLCT scales them from 0 to 255.
  37. ;
  38. ; MODIFICATION HISTORY:
  39. ;    AB, 29 July 1990.
  40. ;-
  41.  
  42. if (!d.name eq 'LJ') then begin
  43.   case (!D.N_COLORS) of
  44.   2: TVLCT, [10B, 229B], [10B, 224B], [15B, 217B]
  45.   4: TVLCT, [10B, 135B, 8B, 229B], [10B, 20B, 66B, 224B], [15B, 36B, 56B, 217B]
  46.   8: TVLCT, [10B, 135B, 8B, 227B, 10B, 135B, 5B, 229B], $
  47.     [10B, 20B, 66B, 212B, 10B, 13B, 56B, 224B], $
  48.     [15B, 36B, 56B, 33B, 74B, 64B, 163B, 217B]
  49.   16: TVLCT, [10B, 135B, 8B, 227B, 10B, 135B, 5B, 184B, $
  50.           31B, 31B, 38B, 110B, 133B, 8B, 227B, 229B], $
  51.     [10B, 20B, 66B, 212B, 10B, 13B, 56B, 105B, $
  52.      15B, 20B, 41B, 110B, 15B, 25B, 222B, 224B], $
  53.     [15B, 36B, 56B, 33B, 74B, 64B, 163B, 33B, $
  54.      61B, 25B, 46B, 115B, 48B, 117B, 79B, 217B]
  55.   endcase
  56. endif
  57. end
  58.